;;有关解压缩的，以前用过，好久没用了
;;(require 'jka-compr)

;;desktop.el在.emacs文件中（贴1）讲过，需要放在Emacs配置文件的最后

;;session.el，同desktop.el，保存上次关闭时编辑文件所在的位置，而不仅仅只是打开那些文件
;;(require 'session)
;;将这个功能加到emacs初始化过程中
;;(add-hook 'after-init-hook 'session-initialize)

;;redo.el，与undo相反了，不过Emacs默认没有带这个功能
(require 'redo)

;;thumbs.el，看图的好东西，方便看大量的图片
;;他将图片都建立缩略图，所以第一次看比较慢，以后就方便了
;;不过我最近不用了，我喜欢用display *
;;(require 'thumbs)

;;tabbar.el，用firefox,opera的人都用过tab，很方便和人性化的一个功能
;;这里也有，并且按文件的模式分类
;;对于这个扩展包，我还用了一个绑定键，用来切换buffer，很方便
;;不过在非X下功能不全
;;(require 'tabbar)
;;(tabbar-mode)

;;table.el，图表功能，不错
;;还有一个适合双字节的一个类似的扩展包，大家可找找
;;好像是印度人写的
;;(require 'table)
;;(autoload 'table-insert "table" "WYGIWYS table editor")
;;(add-hook 'text-mode-hook 'table-recognize)

;;browse-kill-ring.el，emacs默认undo次数不多，用这个扩展包，可以极大的加强这个功能
(require 'browse-kill-ring)
(browse-kill-ring-default-keybindings)

;;sawfish.el，我的窗口管理器是sawfish，我在编辑Sawfish的配置文件时，用这个模式可以正确的语法显示
;;(autoload 'sawfish-mode "sawfish" "sawfish-mode" t)

;;maxima.el，我很喜欢的数值计算工具maxima在emacs中使用所需的扩展包
;;maxima-mode只是普通的模式，同在终端上运行maxima类似
;(autoload 'maxima "maxima" "Maxima interaction" t)
;(autoload 'maxima-mode "maxima" "Maxima mode" t)
;;emaxima-mode，这个是非常漂亮的，因为掉用了tex，那可是对数学天生支持就好的
;(autoload 'emaxima-mode "emaxima" "Emaxima" t)
;(add-hook 'emaxmia-mode-hook 'emaxima-mark-file-as-emaxima)
;(autoload 'imaxima "imaxima" "Image support for Maxima." t)

;;htmlhelpmode.el，加强的html扩展包，对html等网页源码能更好的语法显亮
;(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
;;css-mode.el，对css文件很配
;(autoload 'css-mode "css-mode" "Mode for editing CSS files" t)

;;services.el，一个小巧的玩意，询问端口和对应服务的关系
;(autoload 'services-lookup "services" "Perform a service lookup" t)
;(autoload 'services-clear-cache "services" "Clear the service cache" t)

;;igrep.el，emacs中的egrep
;;(require 'igrep)


(add-to-list 'load-path "~/.emacs.d/elisp/color-theme")
(require 'color-theme)
(color-theme-initialize)
;(color-theme-comidia)
;(color-theme-dark-laptop)
;(color-theme-gnome2)
;(color-theme-classic)
;(color-theme-kingsajz)

;;subversion
(autoload 'svn-status "dsvn" "Run `svn status'." t)
(autoload 'svn-update "dsvn" "Run `svn update'." t)


;(require 'tabbar)

;; (dolist (func '(tabbar-mode tabbar-forward-tab tabbar-forward-group tabbar-backward-tab tabbar-backward-group))
;;   (autoload func "tabbar" "Tabs at the top of buffers and easy control-tab navigation"))

;; (defmacro defun-prefix-alt (name on-no-prefix on-prefix &optional do-always)
;;   `(defun ,name (arg)
;; 	 (interactive "P")
;; 	 ,do-always
;; 	 (if (equal nil arg)
;; 		 ,on-no-prefix
;; 	   ,on-prefix)))

;; (defun-prefix-alt shk-tabbar-next (tabbar-forward-tab) (tabbar-forward-group)  (tabbar-mode 1)) 
;; (defun-prefix-alt shk-tabbar-prev (tabbar-backward-tab) (tabbar-backward-group)  (tabbar-mode 1))

;; (global-set-key [(control tab)] 'shk-tabbar-next)
;; (global-set-key [(control shift tab)] 'shk-tabbar-prev)

(add-to-list 'load-path "~/.emacs.d/elisp/doxymacs-1.8.0/lisp")
(require 'doxymacs)

;(add-to-list 'load-path "~/emacs.d/tramp-2.1.9/lisp/")
;(add-to-list 'Info-default-directory-list "~/emacs/tramp-2.1.9/info/")
(require 'tramp)
(setq tramp-default-method "plink")
;(setq tramp-default-method "plink"
;      tramp-password-end-of-line "\r\n")
(add-to-list 'tramp-default-user-alist  '("plink" "3.36.231.170" "ruiwang"))
(add-to-list 'tramp-default-user-alist  '("plink" "3.28.216.147" "spencer"))

;(add-to-list 'tramp-default-proxies-alist
;             '("\\`3.\\36.\\229.\\138'" nil 
;               "/tunnel:3.36.234.40#88:")
